home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A).po
/
INTERRUPT.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
550b
|
12 lines
10 REM PROGRAM INTERRUPT
20 REM DISABLE INTERUPTS ON THE APPLE IIGS
30 REM THIS PREVENTS ACCESS TO THE CONTROL PANEL AND OTHER THINGS
40 POKE 768,120: POKE 769,96: CALL 768
50 REM THE MACHINE CODE IS $78 $60
60 REM SEI (SET INTERRUPT MASK) RTS (RETURN FROM SUBROUTINE)
70 REM THESE CODES ARE PART OF THE 6502 COMMAND SET
80 REM AND WORK WITH PRODOS 8
90 REM ENABLE INTERRUPTS ON THE IIGS
100 POKE 768,88: POKE 769,96: CALL 768
110 REM THE MACHINE CODE IS $58 $60
120 REM CLI (CLEAR INTERRUPT MASK) RTS (RETURN FROM SUBROUTINE)